Cream of the Crop 26/Cream of the Crop 26.iso/program/snip9707.zip/HAMLET.C

C/C++ Source or Header | 1997-07-05 | 8KB | 105 lines

/* +++Date last modified: 05-Jul-1997 */

/* Written by Tom Torfs (2:292/516@fidonet,[e-mail])
   Donated to the public domain */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define /*_## (__\* /#*/__(/* #)#_*/_/*__ (#_)*/) /*__*/# _/*#_) _(_##_)\*#_*/
char _t[]=__(ABCDEF) __(GHIJKLM) __(NOPQRS) __(TUVWXYZ) __(abcdef) __(ghijklm)
__(nopqrs) __(tuvwxyz) ".,;- ?!'\n"; _(char *); _b(char); main(int c,char **a){
if (_(__(I##dt)),_(__(Q##Tqt)),_(__(d##gtc)),_(__(d##iti))) main(c-1,a+1);
if (_(__(dtQ##Tt)),_(__(s##ti)),_(__(W##Pi)),_(__(t##Xht))) main(c+1,a-1);
if (_(__(i##WT)),_(__(tfj##Th)),_(__(iXd##cp)),_(__(x##LW))) main(c-1,a+1);
if (_(__(TiW##Tg)),_(__(twi##Xh)),_(__(tc##dQ)),_(__(aT##gt))) main(c+1,a-1);
if (_(__(Xc##ti)),_(__(W##Tt)),_(__(b##Xc)),_(__(S##tid))) main(c-1,a+1);
if (_(__(t##hjU)),_(__(U##TgxI)),_(__(W##Tt)),_(__(h##aXcV))) main(c+1,a-1);
if (_(__(ht##Pc)),_(__(S##tPg)),_(__(g##dlht)),_(__(d##Utd))) main(c-1,a+1);
if (_(__(ji##gP)),_(__(V##Tdj)),_(__(h##tU)),_(__(d##gi))) main(c+1,a-1);
if (_(__(j##cTq)),_(__(x##Dgt)),_(__(id##ti)),_(__(P##ZT))) main(c-1,a+1);
if (_(__(t##Pg)),_(__(b##ht)),_(__(P##VPX)),_(__(c##hi))) main(c+1,a-1);
if (_(__(t##Pt)),_(__(hTP##td)),_(__(Uti##gd)),_(__(jQ##aT))) main(c-1,a+1);
if (_(__(h##qx)),_(__(y##cSt)),_(__(Q##ntd)),_(__(e##ed))) main(c+1,a-1);
if (_(__(hX##cV)),_(__(t##TcSt)),_(__(iW##Tb)),_(__(ut##st))) main(c-1,a+1);
if (_(__(I##dt)),_(__(S##XT)),_(__(t##sti)),_(__(d##tha))) main(c+1,a-1);
if (_(__(T##Tets)),_(__(xC##dtb)),_(__(dgT##rt)),_(__(Pc##St))) main(c-1,a+1);
if (_(__(Q##nt)),_(__(Pth##aT)),_(__(Te##ti)),_(__(dth##Pn))) main(c+1,a-1);
if (_(__(tl##TtT)),_(__(c##Sx)),_(__(I##WT)),_(__(t##WTP))) main(c-1,a+1);
if (_(__(g##isP)),_(__(RW##Tqt)),_(__(P##cSt)),_(__(i##WT))) main(c+1,a-1);
if (_(__(ti##Wdj)),_(__(hP##cS)),_(__(tc##Pi)),_(__(jgP##at))) main(c-1,a+1);
if (_(__(hW##dR)),_(__(Zh##xI)),_(__(W##Pi)),_(__(t##UaT))) main(c+1,a-1);
if (_(__(h##WtX)),_(__(ht##WT)),_(__(Xg##ti)),_(__(d##rtw))) main(c-1,a+1);
if (_(__(iXh##tP)),_(__(tR##dch)),_(__(jb##bP)),_(__(iX##dc))) main(c+1,a-1);
if (_(__(x)),_b(','),_(__(T##kd)),_(__(j##ia))) main(c-1,a+1);
if (_(__(n##tid)),_(__(tQT##tl)),_(__(XhW##TS)),_(__(p##tId))) main(c+1,a-1);
if (_(__(t##SXTt)),_(__(st##id)),_(__(tha##TT)),_(__(e##ts))) main(c-1,a+1);
if (_(__(xI##dth)),_(__(aT##Te)),_(__(v##te)),_(__(T##gR))) main(c+1,a-1);
if (_(__(WP##cR)),_(__(T##ti)),_(__(d##tSgT)),_(__(P##bp))) main(c-1,a+1);
if (_(__(ty##nq)),_(__(t##iWTg)),_(__(Tw##ht)),_(__(i##WTt))) main(c+1,a-1);
if (_(__(gj##Qq)),_(__(x)),_b('-'),_(__(dg##tX))) main(c-1,a+1);
if (_(__(cti##WP)),_(__(i##th)),_(__(a##TTet)),_(__(dU##tST))) main(c+1,a-1);
if (_(__(P##iW)),_(__(t##lW)),_(__(P##it)),_(__(S##gT))) main(c-1,a+1);
if (_(__(P##bh)),_(__(t##bPn)),_(__(t##Rdb)),_(__(T##qx))) main(c+1,a-1);
if (_(__(L##WT)),_(__(c##tlT)),_(__(t##WP)),_(__(k##TthW))) main(c-1,a+1);
if (_(__(j##UUa)),_(__(TS##tdU)),_(__(U##ti)),_(__(W##Xh))) main(c+1,a-1);
if (_(__(t##bd)),_(__(g##iPa)),_(__(t##RdXa)),_(__(q##xBjh))) main(c-1,a+1);
if (_(__(i##tV)),_(__(XkT##tj)),_(__(hte##Pj)),_(__(h##Tpt))) main(c+1,a-1);
if (_(__(IW##TgT)),_(__(wh##ti)),_(__(W##Ttg)),_(__(T##heT))) main(c-1,a+1);
if (_(__(R##ixIW)),_(__(P##it)),_(__(b##PZTh)),_(__(t##RPa))) main(c+1,a-1);
if (_(__(Pb##Xin)),_(__(t##dUt)),_(__(h##dta)),_(__(d##cV))) main(c-1,a+1);
if (_(__(t##aX)),_(__(U##Tp)),_(__(x)),_b('-')) main(c+1,a-1);
if (_(__(d##gt)),_(__(lW##dtl)),_(__(dja##St)),_(__(Q##TPg))) main(c-1,a+1);
if (_(__(t##iW)),_(__(T##tl)),_(__(WX##eh)),_(__(tPc##St))) main(c+1,a-1);
if (_(__(h##Rd)),_(__(gc##ht)),_(__(d##Uti)),_(__(X##bT))) main(c-1,a+1);
if (_(__(q##xIWT)),_(__(t##deeg)),_(__(Th##hd)),_(__(gw##htl))) main(c+1,a-1);
if (_(__(g##dc)),_(__(Vqt##iW)),_(__(T##tegd)),_(__(j##Stb))) main(c-1,a+1);
if (_(__(Pcw##ht)),_(__(Rd##ci)),_(__(jbT##an)),_(__(q##xIW))) main(c+1,a-1);
if (_(__(Tt##eP)),_(__(cV##ht)),_(__(d##UtS)),_(__(Th##eXh))) main(c-1,a+1);
if (_(__(TSt##ad)),_(__(k##Tq)),_(__(t##iWTt)),_(__(a##Pl))) main(c+1,a-1);
if (_(__(wh##tST)),_(__(a##Pn)),_(__(q##xI)),_(__(W##Tt))) main(c-1,a+1);
if (_(__(X##ch)),_(__(d##aTcR)),_(__(T##td)),_(__(U##tdU))) main(c+1,a-1);
if (_(__(UX##RTq)),_(__(t##PcS)),_(__(t##iWTt)),_(__(he##jg))) main(c-1,a+1);
if (_(__(ch##xI)),_(__(W##Pit)),_(__(e##Pi)),_(__(XT##ci))) main(c+1,a-1);
if (_(__(t##bT)),_(__(gXi##td)),_(__(Ut##iWT)),_(__(tjc##ld))) main(c-1,a+1);
if (_(__(g##iWnt)),_(__(i##PZT)),_(__(hq##xLW)),_(__(Tc##tWT))) main(c+1,a-1);
if (_(__(t##WXb)),_(__(h##TaU)),_(__(tb##XVW)),_(__(i##tW))) main(c-1,a+1);
if (_(__(X##htf)),_(__(j##XT)),_(__(ij##ht)),_(__(bPZ##Tx))) main(c+1,a-1);
if (_(__(L##XiW)),_(__(t##PtQP)),_(__(g##TtQd)),_(__(SZ##Xc))) main(c-1,a+1);
if (_(__(u##tL)),_(__(Wd##tl)),_(__(d##jaS)),_(__(t##UP))) main(c+1,a-1);
if (_(__(g##STah)),_(__(tQ##TPg)),_(__(qx##Idt)),_(__(V##gj))) main(c-1,a+1);
if (_(__(ci##tPc)),_(__(S##thlT)),_(__(P##it)),_(__(j##cS))) main(c+1,a-1);
if (_(__(Tgt##Pt)),_(__(lTP##gn)),_(__(t##aXU)),_(__(Tq##xzj))) main(c-1,a+1);
if (_(__(i##tiW)),_(__(Pit##iW)),_(__(T##tSg)),_(__(T##PS))) main(c+1,a-1);
if (_(__(t##dUt)),_(__(hdb##Ti)),_(__(W##Xc)),_(__(V##tP))) main(c-1,a+1);
if (_(__(Ui##Tg)),_(__(tS##TP)),_(__(i##Wt)),_(__(s##xIW))) main(c+1,a-1);
if (_(__(Tt##jcS)),_(__(Xh##Rdk)),_(__(TgT##St)),_(__(R##dj))) main(c-1,a+1);
if (_(__(c##ig)),_(__(nt##Ug)),_(__(d##btl)),_(__(W##dhT))) main(c+1,a-1);
if (_(__(t##Qdj)),_(__(gcx##Cd)),_(__(t##igP)),_(__(k##Ta))) main(c-1,a+1);
if (_(__(a##Tg)),_(__(t##gT)),_(__(i##jg)),_(__(c##hts))) main(c+1,a-1);
if (_(__(t##ejo)),_(__(o##aTh)),_(__(t##iW)),_(__(T##tlXa))) main(c-1,a+1);
if (_(__(aq##xyc)),_(__(S##tb)),_(__(PZ##Tht)),_(__(j##htg))) main(c+1,a-1);
if (_(__(PiW##Tg)),_(__(tQT##Pg)),_(__(t##iW)),_(__(d##hTt))) main(c-1,a+1);
if (_(__(X##aaht)),_(__(lTt##WP)),_(__(kTx##IW)),_(__(P##ct))) main(c+1,a-1);
if (_(__(U##an)),_(__(t##id)),_(__(tdi##WT)),_(__(g##ht))) main(c-1,a+1);
if (_(__(iW##Pit)),_(__(l##Tt)),_(__(Zc##dl)),_(__(t##cdi))) main(c+1,a-1);
if (_(__(td##Uu)),_(__(xI##Wj)),_(__(h##tRdc)),_(__(hR##XTc))) main(c-1,a+1);
if (_(__(R##Tt)),_(__(Sd##Th)),_(__(tb##PZ)),_(__(Tt##Rd))) main(c+1,a-1);
if (_(__(l##Pg)),_(__(Sh##td)),_(__(U##tj)),_(__(h##tP))) main(c-1,a+1);
if (_(__(a##aqx)),_(__(ycS##ti)),_(__(W##jhti)),_(__(W##Tt))) main(c+1,a-1);
if (_(__(c##Pi)),_(__(X##kTt)),_(__(W##jT)),_(__(td##Utg))) main(c-1,a+1);
if (_(__(T##hd)),_(__(a##ji)),_(__(X##dcx)),_b('!')) main(c+1,a-1);
if (_(__(h##th)),_(__(X##RZaX)),_(__(TS##tdw)),_(__(T##gt))) main(c-1,a+1);
if (_(__(l##XiWt)),_(__(i##WT)),_(__(teP##aT)),_(__(tR##Phi))) main(c+1,a-1);
if (_(__(t##dU)),_(__(ti##Wd)),_(__(jVW##ir)),_(__(x##yc))) main(c-1,a+1);
if (_(__(S##tT)),_(__(ciT##ge)),_(__(g##XhT)),_(__(h##tdUt))) main(c+1,a-1);
if (_(__(VgT##Pi)),_(__(teX##iR)),_(__(W##tP)),_(__(c##St))) main(c-1,a+1);
if (_(__(b##db)),_(__(T##ci)),_(__(qxL##Xi)),_(__(W##tiW))) main(c+1,a-1);
if (_(__(X##ht)),_(__(g##TV)),_(__(P##gS)),_(__(qt##iWT))) main(c-1,a+1);
if (_(__(Xg##tRj)),_(__(gg##Tc)),_(__(i##ht)),_(__(i##jgc))) main(c+1,a-1);
if (_(__(tP##lg)),_(__(nqx##yc)),_(__(S##ta)),_(__(d##hTti))) main(c-1,a+1);
if (_(__(W##Ttc)),_(__(P##bT)),_(__(td##Ut)),_(__(P##Ri))) main(c+1,a-1);
return _(__(Xd##cp)),_(__(x));} _(char *_a){int _c=atoi(__(_a));for (;*_a;_a++)
_c+=_b(*_a);return _c;}_b(char _a){char *_p=strchr(_t,_a);return
_p?!putchar(_t[((_p-_t)+11)%61]):atoi(__(_p));}